home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Game / C / CORE! 1.1.CPT / Core! 1.1 / Battle Programs / contest89 / SAD2.RED < prev    next >
Encoding:
Text File  |  1991-08-13  |  1.7 KB  |  44 lines
  1. ;        SAD,   the   Search And Destroy   warrior
  2. ;             (c) 1989 by Christoph Doederlein
  3. ;
  4. ;        the main part
  5. ;        mov    -1        vgl       ;
  6. ;        jmp    loop                ;
  7. target   dat   $0                   ;target pointer
  8. start    mov   <data      space     ;load parms for searching
  9.          mov   <data      rept      ;load parms for searching
  10.          mov    data      target    ;initialize target
  11. loop     sub    space     target    ;new target
  12.          jmz    free     @target    ;taret clean?
  13. copy     mov    bomb1    @target    ;bomb to disable
  14.          mov    space     brept     ;give parms to bomber
  15.          add   #12        target    ;prepare copy
  16.          mov   #5         label     ;dito
  17. cloop    mov   @label    <target    ;copy
  18.          djn    cloop     label     ;copy
  19.          cmp   @target    bloop
  20.          jmp    copy
  21.          spl   @target              ;start bomber
  22. free     djn    loop      rept      ;cyclus done?
  23.          jmp    start
  24. ;
  25. ;        the bomber part                      
  26. label    dat   $0                   ;copy label
  27. bloop    mov    bomb     <btarget   ;the bomber
  28.          djn    bloop     brept     ;
  29. btarget  dat   $-2
  30. brept    dat   $0
  31. bomb     dat   $0
  32.                                     ;parms for the main-part
  33. bomb1    spl    0
  34. space    dat    64                  ;first time parms
  35. rept     dat    127
  36. data     dat    7                   ;number of data *2 +1
  37.          dat    627                 ;rept3
  38.          dat    13                  ;space3
  39.          dat    679                 ;rept2
  40.          dat    12                  ;space2
  41.          dat    255                 ;rept1
  42.          dat    32                  ;space1
  43.          end    loop         
  44.